home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / ISSUE22 / CONSTRUC / Unit1.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1997-05-04  |  791 b   |  41 lines
  1. unit Unit1;
  2. interface
  3. uses
  4.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  5.   OleCtrls, WizardX_TLB, StdCtrls;
  6.  
  7. type
  8.   TForm1 = class(TForm)
  9.     Button1: TButton;
  10.     procedure Button1Click(Sender: TObject);
  11.     procedure FormCreate(Sender: TObject);
  12.     procedure FormDestroy(Sender: TObject);
  13.   private
  14.     Wizard: TWizardActiveForm;
  15.   end;
  16.  
  17. var
  18.   Form1: TForm1;
  19.  
  20. implementation
  21. {$R *.DFM}
  22.  
  23. procedure TForm1.FormCreate(Sender: TObject);
  24. begin
  25.   Wizard := nil;
  26. end;
  27.  
  28. procedure TForm1.FormDestroy(Sender: TObject);
  29. begin
  30.   if Assigned(Wizard) then Wizard.Free
  31. end;
  32.  
  33. procedure TForm1.Button1Click(Sender: TObject);
  34. begin
  35.   Wizard := TWizardActiveForm.Create(Self);
  36.   Wizard.Parent := Self;
  37.   Wizard.Height := 377;
  38. end;
  39.  
  40. end.
  41.